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SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* e*eeeeeeeee eee eeeee 


® 
® 
® 
® 
* 
® 
o 
® 
® 
® 
® 
© 
® 
* 
* 
*® 
* 
te 
* 


(RARRARBASAASAALAALALASLALA LASALLE LALE ALES ESAS E ERE R REESE SAREE ERR E EASE RRS EERE 


RMSMSCMAC .MAR; 1 16-SEP-1984 17:06:38.78 Page 2 - 


+ 
+ 


Facility: RMS-32 


Abstract: RMS internal macros 
Modified By: 
v03-007 DASO001 David Solomon 13-Feb-1984 
Remove temporary (and now obsolete) RMS Recovery macros. 
v03-006 $HZ0001 Stephen H. Zalewski 21-Apr-1983 
Remove obsoiete macros. 
v03-005 KBT0448 Keith B. Thompson 5-Dec-1982 
Remove the $cachec macro 
V03-004 JWHO163 Jeffrey W. Horn 21-Dec-1982 


Make references to the teprepetae page be offset from 
@ SHELL gee variable (PIOSA_TRACE) rather than the 
top of the process IO impure area. 


| 
| 
| 
| 
v03-003 KPLOOO1 Peter Lieberwirth 26-0c t-1982 | 
Add some macros for RMS recovery. (Some of these are 
only temporary.) 
| 
} 
| 


v03-002 RASO089 Ron Schaefer 7-Jun-1982 
Delete the incorrect SQUAD_ALIGN macro. 

v03-001 RASOO78 Ron aghaeter 17-Mar-1982 
Fix the SBEGIN macro for V3. 


kK 
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; eNLIST 
; macro to generate a global symbol and entry mask 


-MACRO SENTRY P1,MASK 
SDPSECT 
IF NB <MASK> 
-WORD “M<R2,R3,R4,R5,R6,R7,RB,RO,R10,R11> 
Piz=,-2 
.ENDC 
.ENDM = SENTRY 


Pl:: 


@ test system macro to: 


1. generate a global symbol if $$rmstest bit 0 on 
2. increment a global location if $$rmstest bit 1 on 


.MACRO $TSTPT P1 
: NE SSRMSTESTE1 
SSTPS'P1:: 
“IF NE $SRMSTEST&2 
INCL a#PIOSA_TRACE+TPTSL_'P1 
.ENDM © $TSTPT 
macro to set a single bit 


MACRO SSB POS,BAS,?L 
BBSS POS ,BAS,L 


is 
~ENDM SSB 


macro to clear a single bit 


-MACRO CSB POS,BAS,?L 
BBCC POS,BAS,L 


Ls: 
~ENDM CSB 


> module begin macro 


-MACRO $BEGIN MODNAM, IDNUM,PSNAME,TITL,PSATR 
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eTITLE MODNAM TITL : 
-IDENT /VO4=-" IDNUM/ 
-MACRO SDPSECT 
-PSECT PSNAME,GBL,PIC,NOWRT,PSATR 
-ENDM 
DPSECT 
$$.PSECT_EP=0 
SSRMSTEST=26 ; get test point increment, rmsbug, 
; and optional debug code 
SSRMS_UMODE=4 
$SRMS_TBUGCHK=8 | 
SSRMS~PBUGCHK=16 | 
-DSABC DBG 
-ENDM $BEGI | 


the Sbegin macro defines the following switches for rms assembly 
(bits in $$rmstest): 


t 0 include tstpt global symbols 

t include tstpt counter ae, 

t ¢ ($$rms_umode) assemble code for user mode 

t ($$rms_tbugchk) include optional debugging code 
t 4  ($$rms“pbugchk) include ‘‘semi-permanen ebugging code 


hard error macros 
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| 
.MACRO RMSPBUG CODE 
IF NE SSRMSTEST&SSRMS_PBUGCHK 
$F TLDEF | 
$BUG 
JSB RMSBUG 
-BYTE CODE 
-ENDM  RMSPBUG | 
~MACRO RMSTBUG CODE 
IF NE $SRMSTEST&SSRMS_TBUGCHK 
$F TLDEF 
JSB RM$BUG 
‘BVTE CODE 


-ENDC 
.ENDM RMSTBUG 


eee ee ee 


; macro to store rms error code 

-MACRO RMSERR NAM,ADDR=RO 
RMSSTS NAM,ADDR 

-ENDM RMSERR 

-MACRO RMSSUC NAM=SUC ,ADDR=RO 
If IDN <NAM><SUC> 
st #1, ADDR 
RMSSTS NAM,ADDR 
.ENDC 

-ENDM RMSSUC 
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-MACRO RMSSTS NAM,ADDR 
IF DF RMS$_ "NAM 
IF EQ <RMSS_'NAM&*XFFOO> 
oa (| #<RMSS_*RAME*XFF>, ADDR 
MOVZWL #<RMSS$_"NAME“KFFFF>,ADDR 
 ENDC 
ni 
MOVZuL #<RMS$_"NAME*XFFFF>,ADDR 
.ENDM RMSSTS 
MACRO RMSERR_WORD NAM 


-WORD ~ RMS$_"NAMG*XFFFF 
.ENDM = RMSERR_WORD 
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-MACRO 


-ENDM 
- MACRO 


-ENDM 


SCACHE vonen' . BIL Le FLAGS=R3,ERR= 
IF IDN <a#Q> 
oN 
LIF DIF <VBN><R1>, MOVL VBN,R1 
-ENDC 
if IDN <SIZE><#0> 
as 
“Eee DIF <SIZE><R2>, MOVZWL SIZE,R2 
olf DIF atabob. 
lif IDN <FLAGS><# 
ge DIF <FLAGS><#0>, alae ee <FLAGS> 
BSBW ae ACHE 
iif NB <ERR>, BLBC RO,ERR 
SCACHE 
SCSHFLAGS FLAGS 
SCSHDEF 
$$.1TMP= 
. IRP AGS> 
$$. TMP=$$.TMP!CSHSM_'X 
~ENDM 
IF EQ $$.TMP 
47 R3 
1IF NE $$. TMP&CSHSM_NOBUFFER, $$. TMP=$$.™MP!CSHSM_NOREAD 
3; nobuffer implies noread 
MOVL #$$.TMP,R3 
~ENDC 
SCSHFLAGS 
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macro for spogttyi%s 2 optional functions to be performed by 
rm$rset. an in-line byte is generated specifying the options. 
a zero byte indicates no options desired. 


for non-zero values, 


anyfac (bit 5) set Spee S¥ses that bits 0 - 2 are not to be used to 
check a fac 


cflg ehh 4) set specifies that irb$v_find_last is 
to be cleared 


bio (bit 3) set specifies that the file must be accessed 
for block i/o,; clear specifies that the file must 
not be actesens for block i/o 


fac (bits 0 - 2) specifies the bit in fac which must be 
set for this function to be valid (e.g., fab$v_get 
for $get or $find) 


bits 6 and 7 are spares and must be zero. 


«MACRO S$RABSET FAC=0,B810=0,CFLG=0,ANYFAC=0 
BSBW RMSR 
.BYTE <ANYFAC @ 5>!<CFLG @ 4>!<BIO @ 3>!FAC 
-ENDM $RABSET 


RSENS aera ae I een Se a aes 
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the following macros are used to facilitate the gathering of 
relatively low usage code paths into separate psects in order 
to achieve higher normal-usage code locality. the oereee of 
this technique as opposed to using separate modules is tha 
ae all the relevant code in a single module improves 
readablity. 


«MACRO SNEWPSECT PSNAME,PSATR 


- SAV 
-PSECT PSNAME,GBL,PIC,NOWRT,PSATR 
-ENDM S$NEWPSECT 


2 222 2 22 2 


; the $psect_restore macro merely returns to the previous psect. 


MACRO SPSECT RESTORE PSNAME 
.ENDM $PSECT_RESTORE 


Zz 2 2 2 2 222 
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